home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 301-325 / disk_308 / freq / examples / more < prev    next >
Text File  |  1992-05-06  |  702b  |  32 lines
  1. /* more (REXX) -  More command using FReq as a file requester */
  2.  
  3. /* This program assumes you have the More command located in your
  4.    SYS:Utility directory       */
  5.  
  6. if ~(Show('P', 'FileRequester')) then
  7.     do
  8.     ADDRESS COMMAND "Run >NIL: DEVS:Freq"
  9.     ADDRESS COMMAND "WaitForPort FileRequester"
  10.     if ~(Show('P', 'FileRequester')) then
  11.         do
  12.         say "UnAble to Load FileRequester"
  13.         exit
  14.         end
  15.     end
  16.  
  17. OPTIONS RESULTS
  18. ADDRESS "FileRequester"
  19. 'SetPattern'        /* clear some defaults */
  20. 'SetFileName'
  21. more = "TRUE"
  22. do while more = "TRUE"
  23.     'SetTitle Select a Document to READ'
  24.     'DisplayDef'
  25.     'GETFILENAME'
  26.     if (RC = 0) then
  27.         ADDRESS COMMAND "SYS:Utility/More" '"' || Result || '"'
  28.     else
  29.         more = "FALSE"
  30.     end
  31. exit 0
  32.